﻿using System;
using System.Collections.Generic;
using System.Text;

namespace Dlrsoft.VBScript.Runtime
{
    class BuiltInConstants
    {
        public const int vbUseSystem = 0;
        public const int vbUseSystemDayOfWeek = 0;
        public const int vbSunday = 1;
        public const int vbMonday = 2;
        public const int vbTuesday = 3;
        public const int vbWednesday = 4;
        public const int vbThursday = 5;
        public const int vbFriday = 6;
        public const int vbSaturday = 7;
        public const int vbFirstJan1 = 1;
        public const int vbFirstFourDays = 2;
        public const int vbFirstFullWeek = 3;
        public const int vbOKOnly = 0;
        public const int vbOKCancel = 1;
        public const int vbAbortRetryIgnore = 2;
        public const int vbYesNoCancel = 3;
        public const int vbYesNo = 4;
        public const int vbRetryCancel = 5;
        public const int vbCritical = 16;
        public const int vbQuestion = 32;
        public const int vbExclamation = 48;
        public const int vbInformation = 64;
        public const int vbDefaultButton1 = 0;
        public const int vbDefaultButton2 = 256;
        public const int vbDefaultButton3 = 512;
        public const int vbDefaultButton4 = 768;
        public const int vbApplicationModal = 0;
        public const int vbSystemModal = 4096;
        public const int vbOK = 1;
        public const int vbCancel = 2;
        public const int vbAbort = 3;
        public const int vbRetry = 4;
        public const int vbIgnore = 5;
        public const int vbYes = 6;
        public const int vbNo = 7;
        public const int vbEmpty = 0;
        public const int vbNull = 1;
        public const int vbInteger = 2;
        public const int vbLong = 3;
        public const int vbSingle = 4;
        public const int vbDouble = 5;
        public const int vbCurrency = 6;
        public const int vbDate = 7;
        public const int vbString = 8;
        public const int vbObject = 9;
        public const int vbError = 10;
        public const int vbBoolean = 11;
        public const int vbVariant = 12;
        public const int vbDataObject = 13;
        public const int vbDecimal = 14;
        public const int vbByte = 17;
        public const int vbArray = 8192;
        public const bool vbTrue = true;
        public const bool vbFalse = false;
        public const int vbUseDefault = -2;
        public const int vbBinaryCompare = 0;
        public const int vbTextCompare = 1;
        public const int vbDatabaseCompare = 2;
        public const int vbGeneralDate = 0;
        public const int vbLongDate = 1;
        public const int vbShortDate = 2;
        public const int vbLongTime = 3;
        public const int vbShortTime = 4;
        public const int vbObjectError = -2147221504;
        public const int vbBlack = 0x00;
        public const int vbBlue = 0xFF;
        public const int vbCyan = 0xFFFF00;
        public const int vbGreen = 0xFF00;
        public const int vbMagenta = 0xFF00FF;
        public const int vbRed = 0xFF;
        public const int vbWhite = 0xFFFFFF;
        public const int vbYellow = 0xFFFF;
        public const string vbCr = "\r";
        public const string vbCrLf = "\r\n";
        public const string vbNewLine = "\r\n";
        public const string vbFormFeed = "\u0012";
        public const string vbLf = "\n";
        public const string vbNullChar = "\u0000";
        public const string vbNullString = "";
        public const string vbTab = "\t";
        public const string vbVerticalTab = "\u0011";
        public const int vbMsgBoxHelpButton = 0x4000;
        public const int VbMsgBoxSetForeground = 0x10000;
        public const int vbMsgBoxRight = 0x80000;
        public const int vbMsgBoxRtlReading = 0x100000;
    }
}
